home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / tokyo / east.dir / 00014_movie.ls < prev    next >
Encoding:
Text File  |  1999-04-26  |  1.7 KB  |  71 lines
  1. global sndList, sndCount, chanNum, maxSnd, Nsnd, Esnd, Ssnd, Ccounter, CsprtList, cTime, mousePlace
  2.  
  3. on startMovie
  4.   preLoadCast()
  5.   initSnd()
  6.   puppetSprite(39, 1)
  7.   puppetSprite(3, 1)
  8.   CsprtList = []
  9.   cTime = 0
  10.   set the volume of sound 1 to 100
  11. end
  12.  
  13. on initSnd
  14.   Esnd = ["sounds:street3.aif", "sounds:street2.aif", "sounds:arcade.aif", "sounds:girl.aif", "sounds:street1.aif", "sounds:cbl.aif", "sounds:texture3.aif", "sounds:texture4.aif"]
  15.   maxSnd = 400
  16.   sndList = EMPTY
  17.   sndCount = 1
  18.   chanNum = 2
  19.   repeat with i = 1 to maxSnd
  20.     put "-" into line i of sndList
  21.   end repeat
  22. end
  23.  
  24. on echo
  25.   sndCount = sndCount + 1
  26.   if sndCount > maxSnd then
  27.     sndCount = 1
  28.   end if
  29.   if line sndCount of sndList <> "-" then
  30.     if not soundBusy(chanNum) then
  31.       sound playFile chanNum, the pathName & line sndCount of sndList
  32.     end if
  33.     chanNum = chanNum + 1
  34.     if chanNum = 9 then
  35.       chanNum = 2
  36.     end if
  37.   end if
  38. end
  39.  
  40. on animate chan, firstpos, lastpos, delaytime
  41.   if (the memberNum of sprite chan < firstpos) or (the memberNum of sprite chan > lastpos) then
  42.     set the memberNum of sprite chan to firstpos
  43.   end if
  44.   set the castNum of sprite chan to the castNum of sprite chan + 1
  45.   if the castNum of sprite chan > lastpos then
  46.     set the castNum of sprite chan to firstpos
  47.   end if
  48.   t = delaytime + the timer
  49.   repeat while t > the timer
  50.     if the mouseDown then
  51.       exit repeat
  52.     end if
  53.   end repeat
  54. end
  55.  
  56. on rightArrow
  57.   if rollOver(141) then
  58.     set the blend of sprite 141 to 50
  59.   else
  60.     set the blend of sprite 141 to 100
  61.   end if
  62. end
  63.  
  64. on exitMovie
  65.   if rollOver(143) then
  66.     set the blend of sprite 143 to 50
  67.   else
  68.     set the blend of sprite 143 to 100
  69.   end if
  70. end
  71.